home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / Python 133 68K / Mac / Lib / test / tctl.py < prev    next >
Text File  |  1996-05-20  |  392b  |  21 lines
  1. # play with controls
  2.  
  3. from Dlg import *
  4. from Ctl import *
  5. from Win import *
  6. from Evt import *
  7. import time
  8. import sys
  9.  
  10. def main():
  11.     r = (40, 40, 400, 300)
  12.     w = NewWindow(r, "The Spanish Inquisition", 1, 0, -1, 1, 0x55555555)
  13.     w.DrawGrowIcon()
  14.     r = (40, 40, 100, 60)
  15.     c = NewControl(w, r, "SPAM!", 1, 0, 0, 1, 0, 0)
  16.     print 'Ok, try it...'
  17.     sys.exit(1)  # So we can see what happens...
  18.  
  19.  
  20. main()
  21.